home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 194
- Top = 172
- HelpContext = 1
- BorderStyle = bsSingle
- Caption = 'LookDisk'
- ClientHeight = 260
- ClientWidth = 632
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object Copyright: TLabel
- Left = 0
- Top = 33
- Width = 632
- Height = 14
- Align = alTop
- Alignment = taCenter
- AutoSize = False
- Caption = 'Copyright � 1993-2003 V. Iuorno'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 0
- Top = 0
- Width = 632
- Height = 7
- Align = alTop
- Shape = bsTopLine
- end
- object title: TLabel
- Left = 0
- Top = 7
- Width = 632
- Height = 26
- Align = alTop
- Alignment = taCenter
- AutoSize = False
- Caption = 'LookDisk 2.1'
- Font.Color = clNavy
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object PStatus1: TPanel
- Left = 0
- Top = 235
- Width = 632
- Height = 25
- Align = alBottom
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- end
- object Search: TBitBtn
- Left = 23
- Top = 72
- Width = 149
- Height = 53
- Hint = 'Search Files|Search for files using various parameters'
- HelpContext = 1
- Caption = '&Search Files'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- OnClick = Dateisuchen1Click
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000000000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FFFFF
- FFF00000333333333333333777773333333BFBFBFBF0FFF03333333333333337
- FFF73333333FFFFFFF000000333333333333337777773333333BFBFBF0FBFBFB
- 333333333FFFF733FFFF3333333F00000FF000003333333377777FF777773333
- 333B0FFF0000FFF0333333337FFF7777FFF73333333F00000FF000003333333F
- 777773F777773333330BFBFBF0FBFBFB3333337FF333373FFFFF33333010FFFF
- FF00000033333777FF3333777777333330170BFBFBF0FFF0333337777FF33337
- FFF73333301170FFFFF0000033333777778F3337777333330711190BFBFBFBFB
- 333377777378F3333333333308819990FFFFFFFF3333733733378F3333333330
- 88FF9999033333333337333333FF7333333333088FFFF0003333333333733333
- F777333333333088FFF003333333333337333337733333333333088FFF033333
- 333333337F33337333333333333308FFF09333333333333378F3373333333333
- 333330FF0933333333333333378F733333333333333333003333333333333333
- 33773333333333333333}
- NumGlyphs = 2
- end
- object Text: TBitBtn
- Left = 171
- Top = 72
- Width = 149
- Height = 53
- Hint = 'Search Text|Search for a text in files'
- HelpContext = 1
- Caption = 'Search &Text'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 1
- OnClick = Textsuchen1Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
- 333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
- C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
- F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
- F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
- 00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
- 3333333373FF7333333333333000333333333333377733333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- end
- object Same: TBitBtn
- Left = 319
- Top = 72
- Width = 148
- Height = 53
- Hint =
- 'Find duplicate files by content|Search for files with same conte' +
- 'nt'
- HelpContext = 1
- Caption = 'Duplicates by &Content'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- OnClick = DateiengleichenInhaltssuchen1Click
- end
- object Double: TBitBtn
- Left = 467
- Top = 72
- Width = 148
- Height = 53
- Hint =
- 'Search for duplicate files by name|Search for files with same na' +
- 'me in different folders'
- HelpContext = 1
- Caption = 'Duplicates by &Name'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- OnClick = GleichnamigeDateiensuchen1Click
- end
- object Options: TBitBtn
- Left = 319
- Top = 125
- Width = 148
- Height = 53
- Hint = 'Change Options|Change LookDisk Options'
- HelpContext = 1
- Caption = '&Options'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 6
- OnClick = Optionen2Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
- 3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
- 700077337F3333373777887007333337007733F773F333337733700070333333
- 077037773733333F7F37703707333300080737F373333377737F003333333307
- 78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
- 078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
- 70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
- 3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
- 33337F73FF7377733333078000770333333373377733733333330000}
- NumGlyphs = 2
- Spacing = 10
- end
- object List: TBitBtn
- Left = 171
- Top = 125
- Width = 148
- Height = 53
- Hint = 'Load list|Load a previously saved list containing search results'
- HelpContext = 1
- Caption = '&Load List'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 5
- OnClick = Laden1Click
- end
- object Disks: TBitBtn
- Left = 23
- Top = 125
- Width = 148
- Height = 53
- Hint = 'Disk Overview|Show total disk space and availabe space'
- HelpContext = 1
- Caption = '&Disk Overview'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 4
- OnClick = Diskbersicht1Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333FFFFFFFFFFFFFFF000000000000000077777777777777770F7777777777
- 77707F3F3333333333370F988888888888707F733FFFFFFFF3370F8800000000
- 88707F337777777733370F888888888888707F333FFFFFFFF3370F8800000000
- 88707F337777777733370F888888888888707F333333333333370F8888888888
- 88707F333333333333370FFFFFFFFFFFFFF07FFFFFFFFFFFFFF7000000000000
- 0000777777777777777733333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- NumGlyphs = 2
- Spacing = 10
- end
- object BitBtn1: TBitBtn
- Left = 467
- Top = 125
- Width = 148
- Height = 53
- Hint = 'See you...'
- HelpContext = 1
- Caption = 'E&xit'
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 8
- OnClick = BtnFineClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
- 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
- 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
- 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
- 0333337F777FFFFF7F33330000000000033333777777777773330000}
- NumGlyphs = 2
- Spacing = 10
- end
- object MainMenu1: TMainMenu
- Left = 592
- Top = 44
- object Funktionen1: TMenuItem
- Caption = '&Tools'
- ShortCut = 0
- object Dateisuchen1: TMenuItem
- Caption = '&Search File'
- Hint = '|Search for files by using various search parameters'
- ShortCut = 0
- OnClick = Dateisuchen1Click
- end
- object Textsuchen1: TMenuItem
- Caption = 'Search &Text'
- Hint = '|Search for a text in files'
- ShortCut = 0
- OnClick = Textsuchen1Click
- end
- object DateiengleichenInhaltssuchen1: TMenuItem
- Caption = 'Duplicate Files by &Content'
- Hint = '|Find files with same content (can have different name)'
- ShortCut = 0
- OnClick = DateiengleichenInhaltssuchen1Click
- end
- object GleichnamigeDateiensuchen1: TMenuItem
- Caption = 'Duplicate Files by &Name'
- Hint = '|Find files with the same name in different folders'
- ShortCut = 0
- OnClick = GleichnamigeDateiensuchen1Click
- end
- object Diskbersicht1: TMenuItem
- Caption = '&Disk Overview'
- Hint = '|Shows total and free space of each drive'
- ShortCut = 0
- OnClick = Diskbersicht1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object LookDiskbeenden1: TMenuItem
- Caption = 'E&xit'
- Hint = '|See you...'
- ShortCut = 0
- OnClick = LookDiskbeenden1Click
- end
- end
- object Liste1: TMenuItem
- Caption = '&List'
- ShortCut = 0
- object Laden1: TMenuItem
- Caption = '&Load'
- Hint =
- '|L�dt entweder eine vorher gespeicherte Liste oder die Liste der' +
- ' zuletzt ausgef�hrten Suchfunktion'
- ShortCut = 16460
- OnClick = Laden1Click
- end
- end
- object Optionen1: TMenuItem
- Caption = '&Options'
- ShortCut = 0
- OnClick = Optionen2Click
- end
- object Hilfe1: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object HelpTopics1: TMenuItem
- Caption = 'Help'
- ShortCut = 0
- OnClick = Help
- end
- object About1: TMenuItem
- Caption = 'About...'
- ShortCut = 0
- OnClick = Programminfo1Click
- end
- end
- end
- object TimerFunc: TTimer
- Enabled = False
- Interval = 100
- OnTimer = TimerFuncTimer
- Left = 584
- Top = 192
- end
- end
-